home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 12 / Cream of the Crop 12 (Part II) / Cream of the Crop 12 (Part II).iso / BBS / UEDIT4.ZIP / UEDIT422.ZIP / ALIAS.PPE (.txt) < prev    next >
Encoding:
PCBoard Programming Language Executable  |  1996-03-13  |  2.3 KB  |  188 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.2O (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  INTEGER001
  20.     String   STRING002
  21.     String   STRING003
  22.     String   STRING004
  23.     String   STRING005
  24.     String   STRING006
  25.     String   STRING007
  26.  
  27. ;------------------------------------------------------------------------------
  28.  
  29.     STRING002 = PPEPath() + "UEDIT.PPE"
  30.     If (Exist(STRING002)) Gosub LABEL001
  31.     Gosub LABEL002
  32.     :LABEL001
  33.     INTEGER001 = FileInf(STRING002, 4)
  34.     If (INTEGER001 == "7150") Then
  35.         Gosub LABEL004
  36.     Else
  37.         Gosub LABEL003
  38.     Endif
  39.     :LABEL002
  40.     Cls
  41.     PrintLn "@X0CERROR! The File  UEDIT.PPE  Does NOT Exist...@X07"
  42.     Wait
  43.     Gosub LABEL008
  44.     :LABEL003
  45.     Cls
  46.     PrintLn "@X0CERROR! Invalid System File  UEDIT.PPE  Detected...@X07"
  47.     Wait
  48.     Gosub LABEL008
  49.     :LABEL004
  50.     Cls
  51.     Input "@X09Please enter user's record number?@X07", STRING003
  52.     If (STRING003 == "") Then
  53.         Stop
  54.     Else
  55.         Gosub LABEL005
  56.     Endif
  57.     :LABEL005
  58.     GetAltUser STRING003
  59.     Cls
  60.     PrintLn "@X0BUSER'S NAME IS:  @X07" + U_Name()
  61.     Newline
  62.     PrintLn "@X09USER'S SECURITY LEVEL IS: @X07"
  63.     PrintLn U_Sec
  64.     Newline
  65.     PrintLn "@X03USER'S EXPERATION DATE IS: @X07"
  66.     PrintLn U_ExpDate
  67.     Newline
  68.     PrintLn "@X0BUSER'S ALIAS IS:@X07 "
  69.     PrintLn U_Alias
  70.     Newline
  71.     Input "@X0EIS THIS THE CORRECT USER?@X07", STRING004
  72.     Select Case (STRING004)
  73.         Case "y"
  74.             Gosub LABEL006
  75.         Case "Y"
  76.             Gosub LABEL006
  77.         Case ""
  78.             PutUser
  79.             Stop
  80.         Case Else
  81.             PutUser
  82.             Gosub LABEL004
  83.     End Select
  84.     :LABEL006
  85.     Cls
  86.     STRING005 = U_Alias
  87.     Newline
  88.     PrintLn "@X0ATHE USER'S CURRENT ALIAS IS: @X07"
  89.     PrintLn U_Alias
  90.     Newline
  91.     Input "@X0CWHAT DO YOU WANT TO CHANGE IT TO? @X07", STRING006
  92.     If (STRING006 == "") Then
  93.         Stop
  94.     Else
  95.         Delay 20
  96.         Newline
  97.         PrintLn "@X0BTHE USER'S ALIAS HAS BEEN CHANGED TO:@X07 "
  98.         PrintLn U_Alias
  99.         Newline
  100.     Endif
  101.     Input "@X0CIS THIS WHAT YOU WANTED?@X07", STRING007
  102.     Select Case (STRING007)
  103.         Case "Y"
  104.             U_Alias = STRING006
  105.             Goto LABEL007
  106.         Case "y"
  107.             U_Alias = STRING006
  108.             Goto LABEL007
  109.         Case Else
  110.             Gosub LABEL004
  111.     End Select
  112.     :LABEL007
  113.     FAppend 1, PPEPath() + "UEDIT.LOG", 1, 0
  114.     FPutLn 1, "DATE: ", Date(), " TIME: ", Time()
  115.     FPutLn 1, "USER: ", U_Name(), " (", STRING003, ")"
  116.     FPutLn 1, "ITEM CHANGED: Alias"
  117.     FPutLn 1, "TO: ", STRING006, "  FROM: ", STRING005
  118.     FPutLn 1, "-------------------------"
  119.     FClose 1
  120.     :LABEL008
  121.     PutUser
  122.     Stop
  123.  
  124. ;------------------------------------------------------------------------------
  125. ;
  126. ; Usage report (before postprocessing)
  127. ;
  128. ; ■ Statements used :
  129. ;
  130. ;    5       Cls
  131. ;    2       Wait
  132. ;    18      Goto 
  133. ;    5       Let 
  134. ;    13      PrintLn 
  135. ;    9       If 
  136. ;    4       Input 
  137. ;    1       FAppend 
  138. ;    1       FClose 
  139. ;    5       FPutLn 
  140. ;    3       PutUser
  141. ;    11      Gosub 
  142. ;    1       Delay 
  143. ;    8       Newline
  144. ;    4       Stop
  145. ;    1       GetAltUser 
  146. ;
  147. ;
  148. ; ■ Functions used :
  149. ;
  150. ;    3       +
  151. ;    8       ==
  152. ;    8       !
  153. ;    1       Date()
  154. ;    1       Time()
  155. ;    2       U_Name()
  156. ;    2       PPEPath()
  157. ;    1       Exist()
  158. ;    1       FileInf()
  159. ;
  160. ;------------------------------------------------------------------------------
  161. ;
  162. ; Analysis flags : WR
  163. ;
  164. ; W - Write user ■ 5
  165. ;     Program writes a user record. Although this may be normal for a
  166. ;     User Editor, it may also be a way to modify an account level.
  167. ;     ■ Search for : PUTUSER
  168. ;
  169. ; R - Read user ■ 5
  170. ;     User records are read, this may signify that someone wants to get
  171. ;     various informations about a user (for example his password), but
  172. ;     this may also be normal for a program accessing user records (for
  173. ;     example a User Editor)
  174. ;     ■ Search for : GETALTUSER
  175. ;
  176. ;------------------------------------------------------------------------------
  177. ;
  178. ; Postprocessing report
  179. ;
  180. ;    0       For/Next
  181. ;    0       While/EndWhile
  182. ;    3       If/Then or If/Then/Else
  183. ;    2       Select Case
  184. ;
  185. ;------------------------------------------------------------------------------
  186. ;                 AEGiS Corp - Break the routines, code against the machines!
  187. ;------------------------------------------------------------------------------
  188.